home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
ShowFKeys.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
3KB
|
93 lines
/*
$VER: ShowFkeys.zprx (17.09.94) Copyright (c) Ulf Böttcher
Dies ist ein ARexx-Skript für Zodiac's Point, mit dem man die
Belegung der Funktionstasten anzeigen lassen kann. Nach Eingabe
der Funktionstastennummer ( F10>=>10 ). Wird die entsprechende
Zeile von fkeys.zp ausgeführt.
Sie dürfen dieses Skript beliebig kopieren, solange es zusammen
mit Zodiac's Point eingesetzt wird, aber verändern Sie es bitte
nicht ohne Erlaubnis des Autors.
Sie erreichen den Autor wie folgt:
Ulf Böttcher EMail: HULK@Green.sh.sub.de
Hinweise zur Installation:
Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
"F1:SYS:Rexxc/RX ZP:Rexx/ShowFkeys.zprx %s" hinzu.
Alternativ können auch folgende Zeilen in die Datei usermenus.zp
eingefügt werden:
*Funktionstasten anzeigen
Sys:Rexxc/RX ZP:Rexx/ShowFkeys.zprx %s
*/
/*******************************************************************************/
/* In der Variablen Pfadname muß der Pfad zu fkeys.zp im ZPoint Verzeichnis */
/* eingetragen werden. */
/*******************************************************************************/
Pfadname = "ZP:fkeys.zp"
/*******************************************************************************/
OPTIONS RESULTS
PARSE ARG port
ADDRESS VALUE(port)
LF = '0a'x
/* Rexxreqtools.lib öffnen */
call addlib("rexxreqtools.library", 0, -30, 0)
/* Rexxsupport.library öffnen (für SHOWLIST() ) */
call addlib("rexxsupport.library", 0, -30, 0)
GUILOCK ON
CALL Open('Ftasten',Pfadname,"READ")
zeile = ''
taste = ''
tasten = ''
text = ''
befehle = ''
DO FOREVER
zeile = Strip(ReadLn('Ftasten'),"T","%s")
IF zeile = ''
THEN BREAK
taste = Left(zeile,Index(zeile,":"))
text = text || taste || SubStr(zeile,Lastpos("/",zeile)+1) || LF
tasten = tasten || taste || "|"
befehle = befehle || SubStr(zeile,LastPos(zeile,"/")+1) || "|"
END
IF tasten = '' THEN
DO
GUILOCK OFF
REQUESTNOTIFY "Keine Funktionstasten belegt!"
EXIT(0)
END
text = text || LF || LF || "Funktionstastennummer eingeben" || LF || "F10 <=> 10"
test = 0
do UNTIL test = 1
Nummer = rtgetstring(,text,
,"Abfrage....",,"rt_pubscrname=" || port "rt_lockwindow=true")
IF Nummer = '' THEN
DO
GUILOCK OFF
EXIT
END
test = Index(tasten,"F" || Nummer )
END
befehl = SubStr(befehle,Index(befehle,"F" || Nummer))
befehl = Left(befehl,Index(befehl,"|")-1)
befehl = SubStr(befehl,Index(befehl,":")+1)
ADDRESS command befehl port
GUILOCK OFF
EXIT(0)